From: Juri Linkov <juri@jurta.org>
Date: Wed, 19 May 2010 20:37:57 +0000 (+0300)
Subject: * emacs-lisp/cl-macs.el (window-parameter): Add defsetf with
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~7674
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=451993d327ce3a00b494567724725195a7b437b5;p=emacs.git

* emacs-lisp/cl-macs.el (window-parameter): Add defsetf with
set-window-parameter.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66425ed1b9a..9e7392a0ce5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-19  Juri Linkov  <juri@jurta.org>
+
+	* emacs-lisp/cl-macs.el (window-parameter): Add defsetf with
+	set-window-parameter.
+
 2010-05-19  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-methods): Add `tramp-async-args' attribute
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 57870b19066..444178edb0c 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1813,6 +1813,7 @@ Example:
 (defsetf window-height () (store)
   (list 'progn (list 'enlarge-window (list '- store '(window-height))) store))
 (defsetf window-hscroll set-window-hscroll)
+(defsetf window-parameter set-window-parameter)
 (defsetf window-point set-window-point)
 (defsetf window-start set-window-start)
 (defsetf window-width () (store)